home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / HOMES.ZIP / LVIEW.PRG < prev    next >
Text File  |  1995-12-31  |  2KB  |  96 lines
  1. PROCEDURE lview
  2.  
  3. SET ORDER TO 2
  4. GOTO TOP
  5. untg = .F.
  6. one = .F.
  7. last = .F.
  8. x = 1
  9. SEEK tarray[x]
  10.  
  11. DO tt
  12. IF tarray[2] # "EMPTY"
  13.    DO ts
  14. ENDIF
  15. DO vscr
  16. DO view
  17.  
  18. SET COLOR TO N/N
  19. @ 2,0 GET charin
  20. DO WHILE .T.
  21.    READ 
  22.         DO CASE 
  23.            CASE Lastkey() = 27                   && <Esc>
  24.                 EXIT
  25.            
  26.            CASE LastKey() = 5                    && <Up Arrow>
  27.                 SET COLOR TO W+/N
  28.                 IF untg  
  29.                    untg = .F.   
  30.                    IF x = 1 .AND. one
  31.                       one = .F.
  32.                       LOOP
  33.                       untg = .T.
  34.                    ENDIF
  35.                 ELSE
  36.                    IF x = 1
  37.                       LOOP
  38.                    ENDIF
  39.                    x = x - 1
  40.                 ENDIF
  41.                 SEEK tarray[x]
  42.                 DO view
  43.  
  44.            CASE LastKey() = 24                   && <Dn Arrow>
  45.                 SET COLOR TO W+/N
  46.                 IF tarray[x] = "EMPTY"
  47.                    LOOP
  48.                 ENDIF
  49.                 IF untg
  50.                    untg =.F.
  51.                    IF last
  52.                       last = .F.
  53.                       untg = .T.
  54.                       LOOP
  55.                    ENDIF
  56.                 ELSE
  57.                    x = x + 1
  58.                    IF tarray[x] = "EMPTY"
  59.                       x = x - 1
  60.                       LOOP
  61.                     ENDIF
  62.                 ENDIF
  63.                 SEEK tarray[x]
  64.                 DO view
  65.                 LOOP
  66.            
  67.            CASE LastKey() = 84 .OR. LastKey() = 116          && T or t
  68.                 SET COLOR TO W+/N
  69.                 DO tag WITH tg
  70.                 DO CASE
  71.                    CASE tg = 0
  72.                         LOOP
  73.                    CASE tg = 1
  74.                         x = 1
  75.                         LOOP
  76.                    CASE tg = 2
  77.                         IF tarray[x] = "EMPTY"
  78.                            last = .T.
  79.                         ENDIF
  80.                         IF x = 1
  81.                            one = .T.
  82.                         ELSE   
  83.                            x = x - 1
  84.                         ENDIF
  85.                         untg = .T.
  86.                  ENDCASE
  87.  
  88.            OTHERWISE 
  89.                 LOOP
  90.         ENDCASE
  91. ENDDO
  92.  
  93. SET ORDER TO 1
  94.  
  95. RETURN
  96.